LISTing Newsletter

| ፳ isch Newsletter of the
Long isiand Sinclair\ Timer
) 7۰۶۷ مب‎
ileusietters incorporating በኛ%
November 1988

| OO
Next MeeTing December 8፡67.
Harvey bars House XE

5
Happy | hank sgiving »

| کے‎ Ah aS ey سرن‎ “ነት ጨ pae
| o = ~ WN 1
L | 1 1 : . 6 3 vec ሣ 72 pute
፥ t x -— መሙ ees
TIE Au 254
| Lefle

valley Stream, Y ۵ا‎

HAST CLASS MAL
DATE MEETING NOTICE
Please DOTT delay!

m %- ገሪ ዛባ

ር
“.
5 +t
"De رین بیو‎ D
ፎ “ብ ین‎ ኢ. #8 (ሀቨ ا — نم‎ መ الد‎ LT
ጠ'ገ3 A ጊ. ۴ emo nem

ቧ፤ t. qua
ዛባ mm ጻ.. ዚጋ

ር3 1‏ ےد و

^ sed مھ‎
بے‎ up
1

K‏ 7 ہی c‏ لا

3 ا ا Ad GU ሂ፲ ፻8‏ الا ١ء‏ لب
inert I ጥጄ‏
FA‏ لن ل ATI‏

ait سا‎ Las 1.1.1 ease nl
ab f= a
E MN cle የክኑ--
mm az ed au : ا‎
Ceu] ame ር)“ ا ہب رت‎
11 ርነ CE ፤... ።
ቨሂ= تد لوت کر‎ 4ባ بج‎

“=ቄ. mm‏ ہیا
red ed LI " Du -‏
اا = tn‏ )4
C ahh | C ፦4 vu‏
an! : a ፌ. :ክ ሠ‏ اس wy al‏
ቷ] - EE ses MMM ር)‏ تک tient EE‏
ር) ኤ‏ لہ 012 E‏ =

e የ E 0

lum‏ پیا

; ۳ نس مت
oa EY‏

844.)

La t "n ፦

ሠ" nut
119" ፲3 እባ

a.

1

ot oul ጻባ
ےا‎ t

4” Cn rti ett
“ጠ (Ca سا‎
un لآ‎ AF یی لو‎ ፤... از‎
جس‎ Une ር gd trm
e + rent
aM mum ..
Qt teal = DT]

"ፍቄ ኑ- ws

AM ዚህ سا‎ (I سا‎
tL. LT ዘባ -፦4 (۱ ٢

nt
“ነ

(U کے‎
ር”
= کر لا‎ onte

ہے

C ano AOC C

mui
wp ae! ا‎
ኣባ 0 a

ns

c TE ITE
roc
A m لن‎
. ፎሬ. "
ጪጠሑ፦፡ =
ሂጋ ase سا مہ‎
0 rn

zn تا‎

ان
لل wy‏

ዘዛ|ፒእክ

لے
(a E‏
ሚጧ w‏

(n IK
الا مث‎ (rn
C cst
Og اد‎ mg
‹4=* Oa a
wp I2 ኣባ
up m c mec
Tan man co

نس یت
D] argo‏
E‏ ۱ن 5“
Yi ኣዚ 7‏

e ቢት4 cm ome Spon

m 1-ሩህጩህ]ርፎርርፎ

ü. የ3:ሽ1--44 Cut
wp ا‎ nq eu - T
og) 1 1-4! ^
تا لن‎ የጠ :
Ue co
Jc ee
نم‎ ceca ceu cs
COME Ee C رں‎ amt E] FR pe urn

[E d

n
n
"m n
"m n
Ta ہے‎ M =
وڈ‎ " "n
al 7ا‎ "
"E ፥41 Ma
"n 0 اسب‎ My
m
ےڈ‎ + 0
کے‎ . |.”
اس‎ ~ 8,
a" ፦ زع‎
" P n"
"n ዴ- w
Ma ac "a
ا‎ rA - 9
"ሦ ጠ ሯ "a
My! mom My
می بن ہے‎
٣٣۰ mow My የቨሂክ
Wal مج ین‎ Y ded
Ma- = wi "a
"n. De "n - ጫ
Ha 0 Man P. "mum
Mna dud Cra mm c c4
“a ባ-፦ a Ma
a, ww eth "
Ma ni Ma
ma AE ፦
m
m "n
"m
= =
Pal کی‎
m ፦ m
"n CL

DATA COMPRESSION FOR THE 2068 and OTHER STUFF
c 09/88 George Gilder Assoc. Inc.

I have been eexperimenting with data compression for the past
few years. This system allows shorter data statements and has
faster data entry as well.

Allow me to give you a few examples:

1 I have developed a telephone book / dialing system. The
numbers are entered as A$ strings. In New York City, we have to
dial a 1 before each area code. My telephone number is 1718 -
544-1106, 11 digits in length. I have dimensioned 250 names
and numbers.

I have designed the system to use only 8 digits. 718 stands for
Queens. I enter that number as Q5441106. 516 is the area code
for Long Island. That suffix is "L". "F" is Florida, "J" for
New jersey, "X" for 1800, etc.

Before the number is processed, it is sent through a small

routine ie; IF AS(i,1)="L" THEN LET A$="1516"+a$ (2). It not
only saves bytes (3*2*250=1500),but allows rapid entry as
well.

2 I use a mail merge client mailing program. There are data
strings that uses 500 names and addresses. The files are 108
charactors long, written for the toy industry. In that industry
at least half the potential customers are at 200 Fifth Avenue,
or at 1107 Broadway. The files, as seen in the Write a Record
routine are written with a series of promts. Let us examine
the routine:

f= the file number. line 5200 dimensions each part of every
file. I have used the following variables: k-10, h=2,j=1. The
total number - 108.

The code is a one letter prefix to identify the files by areas
of each companies' expertise, ie, Dolls, Games, etc. When the
input for president's name you have two choices. Type in the
actual name if known or enter P. If you chose the latter, line
5300 writes "Atten: president".

When the Address prompt appears, enter T (for toy) and line
5500 assigns the 200 Fifth address complete to zip code. Enter
B (Broadway) and line 5510 writes the rest. The subroutine at
900 sorts each data line into a recognizable format.

Athough each of these examples took lots of time to develop,
The ultimate saving in computer entry time is fantastic.
Perhaps you can come up with your examples.

I can answer any questions by SSAE only. George Gilder 67-38
108th Street Forest Hills, NY 11375.

PW]

5000»REM XX XK KK بل‎ ke ke e kk چو‎ e ke یو‎ e ہاو‎ ke و‎

5005 REM * Write a record *
5010 REM ck ck ck از‎ አ እእ کل‎ ko ko ارہ ار بہار‎ ko k k k kk
5020 INPUT f

5050 IF ደ=0 THEN GO TO 1

5150 IF £>500 OR £<0 THEN GO TO
VAL "5150"

5200 CLS : DIM k$(1): DIM nS$(k+k
): DIM m$(32): DIM AS(k+k): DIM
bS(K*H): DIM zS(VAL "7"): DIM
P$ (8) l

5220 INPUT "Code: ";k$: IF k$="0
" THEN GO TO 1

5250 INPUT "Pres. Name: ";n$
5270 IF n$(j)="0" THEN GO TO 1
5300 IF n$="P"+x$ THEN LET n$="
Att: President"

5400 INPUT "Co. Name : ";mS$

5450 INPUT "Address : ";as

5500 IF a$(j)="T" AND a$(H TO )=
x$ THEN LET a$="200 Fifth Av
enue": LET b$="New York,N.Y. ":
LET z$="10010": GO TO 5700

5510 IF a$(j)="B" AND a$(H TO )z
x$ THEN LET aS="1107 Broadwa

y": LET bS="New York,N.Y. ": LE
T z$="10010": GO TO 5700

5550 INPUT "City,State: ";bs
5650 INPUT "Zip: ";z$

5700 INPUT "Phone :";p$

5800 LET aa=0: LET y$-k$-«n$-«m$«a
$+b$+z$+p$: LET s$(f)=y$: GO SU
5 900 -

5900 PRINT £': GO SUB 8000: GO T
O 5000

V

Ul J

FOR/NEXT loops in this expense section.
With 17 expense items, your screen will dis-
play a Code 5 at the bottom— press “C” and
ENTER to continue.

4) Enter “2” and return to menu. Exit
the program by entering menu item 12.

5) Delete all the following statements in
your listing (simply type each number and
ENTER, one by one.)

235, 236, 238, 239, 241, 242, 255, 260, 265,
519, 522, 523, 524, 525, 526, 527, 528, 531,
532, 533.

6) Type GOTO 1700 and ENTER. Your
screen will show a report code 2. Now type
GOTO 2500 and ENTER. Your graph format
will appear on the screen.

7) Type GOTO 3600 and ENTER. Again
your screen will show a report code 2. Type
GOTO 4500 and ENTER. Your income/
expense graph format will appear on the
Screen.

8) Delete the following statements in your
listing by typing and ENTERing each number
individually.

1700, 1720, 1740, 3600, 3610, 3620.

9) For the 2-Year expense comparison
graph, you must enter each of last year's
monthly expenses. (If you do not do this, this
graph should be ignored.) Type in the follow-
ing:

LET R(1)- (January last year expenses)

LET R(3)=(February last year expenses)

LET R(5)=(March last year expenses)
Continue with LET R statements 7, 9, 11, 13,
15, 17, 19, 21, 23 for the remaining months of
last year. (Note that these are all odd numbers
— even numbers are reserved for the curreni
year.)

Last year's expense entries will be held in
reserve and will not appear on the graph until
the corresponding months this year are en-
tered. (Except, the graph will show each suc-
ceeding month's expenses for last year as well
as those through the current months.)

Ema ce.
— —
ጩመጨመጨሙሥ
eal
EE,
ጨጨጨኤ
<=
—.

balance sheet. There is also a provision for
entering transfers of funds between accounts.

The program works best with your com-
puter in FAST mode.

To use the program, each month simply
enter your income and expenses—typing in
the name of the item and the amount of the
transaction. The computer will ask which ac-
count the inoney is for or from, which you
enter by code “X,” "S," etc.

The computer will add together similar
items and adjust your assets and liabilities
page, your income and expense totals, your
cash flow, and your graphs.

If you have outstanding loans such as a
mortgage, be sure to enter your principal
payments under menu item #10. Your interest
on the loans should be entered on the expense
statement.

The program also allows you to enter trans-
fers of funds between different accounts under
menu item #10. '

Instructions for Activating the Program

1) After loading “Money Manager” in your
2781, save the program on tape just as it is in
case you mess up the rest of the instructions.

2) GOTO 5 and enter menu item £1. Enter
an income account name, e.g. "SALARY,"
enter a zero, then enter another zero. Your
screen will print the account name, followed
by “0” under Month and “0” under year.
Continue entering account names, followed
by the two zeros until you have entered six.
(Note: If you want more or less than six
categories, change the DIM statements in this
section as well as the FOR/NEXT loops).

3) Enter “2” and return to menu. Press “2”
and you will be on the expense sheet. Here,
you must type in each expense account name,
followed by “0,” “0,” just as you did with
income. The program is set up for 17 expense
items, so, if you want more or less, you will
need to change the DIM statements and

ar

8K ROM
16K RAM

A Personal
Money
Management
Program

Alan Pattison

Where do we stand financially? This is
one of the questions of greatest concern
in the home office. We make our depos-
its, write our checks, and pay our bills,
but these activities do not provide the
information we need to interpret our po-
sition. We need to know not only our in-
come and outgo, but also where our
money is and what it is doing. We need
to know not only this year, but also last
year and other years. The program be-
low is one that I developed to provide
answers to such questions for my own
situation. You may not have the same
needs or questions, but perhaps the pro-
gram will enable you to pose the ques-
tions you want to your computer and
find the answers you need.

When the program has been activated,
simply enter income, expense, and loan prin-
cipal items each month. The computer will
then provide you with:

1) An income statement for the current

month and the year-to-date.

2) An expense statement for the current
month and the year-to-date.

3) A balance sheet showing your various
assets, liabilities, and net worth.

4) A cash flow statement for the month and
the year-to-date.

5) A comparison of expenses to date with
your yearly budget.

6) A month by month graph comparing in-
come with expenses.

7) Another month by month graph compar-
ing each month's expenses this year with
those of last year.

8) A listing showing month by month
income and expenses as well as your av-
erage monthly income and expenses.

You can make as many entries as necessary
for any item—right out of your check book,
Visa or Master Charge records, etc. Your
checking account balance and all other assets
and liabilities will appear correctly on your
———Á— — በ

Alan Pattison, 3422 French Loop NW. Olympia,
WA 98502. :

1

b) Load your Liabilities:

LET MG=(Mortgage principal balance)
LET L=(Other loan balance)

13) Type GOTO 5 and ENTER. Your pro-
gram is now set up for you to use. If you are
starting the program in the middle of the year,
enter income and expense items month by
month for all prior months. This is important
if your graphs are to work correctly. If you do
make entries for prior months, your balance
sheet will no longer be correct. Therefore you
should go back to instruction #12 and reload
your Assets and Liabilities.

IF U$="“MA" THEN LET MA=MA+E
LET HtB)-H(B) +E

480 LET ዮ (5) =F (8) +E

482 LET FT=FT +E

483 PRINT F$

434 PRINT 0 DATE"; TAB 67 ዛ(5)
ji TAB ہے‎ )

485 PRINT rs

486 PRINT “TOTAL INCOHME";TRB 16

;HT;TRB 24;FT

488 PRINT S$

492 GOTO 400

500 REM *£EXPENSE STATEMENT ¥
255 REM AFTER ENTERING EXPENSE
CATEGORIES, DELETE 519,522,523,5
24,525.526.527,526.531,532,535

tiom
S19 LET D$-"HONTH"

$20 PRINT ten Tae 160 TAB
25; YERR"

S22 DIM I$£(17.15)

S23 DIM H(17)

S24 DIM T(17)

Ses LET HT-e

526 LET ፕፕ=ፀ

S27 LET PPT-O

528 LET PPX=0

S29 PRINT S$

S30 FOR N-1 TO 17

S31 INPUT ፲ቁ (ክህ)

S32 INPUT MIN)

533 INPUT ፕ (N)

525 PRINT ፲ (1) , ፐ66 16;N(N};TAB
24;T(N3

SS@ PRINT FS

S6@ PRINT “TOTAL”; TAB 16;MT; TAB
ےد‎ TT

565 PRINT T$

$70 PRINT "TYPE ""1"" TO MAKE E
NTRIES, "^22 TORETURN TO START.
572 INPUT U

575 IF U«»i THEN GOTO 5

578 REM xEXPENSE ENTRIES:

580 PRINT

„581 PRINT "IS THIS A NEU MONTH?
582 INPUT Y$

S83 IF Y$="NO" THEN GOTO 599
584 IF Y$="YES" THEN LET ይይፐ=ወ
585 PRINT "TYPE HONTH-3 LETTER
ABBREVIATION“

S86 INPUT D$

599 FOR D=1 TO 17 STEP 1

ود ہر LET‏ 592

594 LET N=0

596 LET H(D)-e

598 NEXT 6

539 CLS

S@@ PRINT TAB 8; “EXPENSE ENTRIE
دوہ‎ PRINT S&

602 PRINT “TO END ENTRIES TYPE
“ገው. =
دوہ‎ PRINT T$

665 PRINT TAB 15;D$;TRB 25; "YEA

697 PRINT ےد‎
PRINT "ITEM:"

entered one by one (numbering not neces-
sary). The titles may be changed to fit your
own situation. Type in as follows:
a) Load your Assets:
LET X (Checking account balance)
LET V=(Visa or other cash card balance)
LET Sz (Savings account)
LET C=(Cash on hand)
LET CD=(Certificates of deposit)
LET ST=(Stocks and bonds)
LET PR=(Real and personal property)
LET MA=(Other assets)

Listing 1.

PRINT
‘YEAR™

“ITEM: TAB 15;M$;TRB

J TAB 16;H(B);TRE

2
2
2
<=
=

Fs
“TOTAL"

PRINT T$

PRINT “TYPE
ES,
P

j; TAB 165;HT;TRE

1
4

~e TO MAKE t
"2"" TO RETURN TO 3S

INPUT U

IF U-2 THEN GOTO S
REM #£INCOME ENTRIES ¥

o
1
2
5
2
5
e
5
e
e
S PRINT
e
1
2
I
3
Tr
4
5
6
9
e 5 THIS A

4
24
4
5
5
6
6
?
4
=
8
e
4
።
።
ፎ
و‎
ፎ
3
3
3
9
1

+. 3
A ONO foto Dy Anton

PRINT NEU MONTH?

QOQOGG QUO GGG Q
NO N00 ن۸ ۵م‎
0ن۸‎ ) 6

PRINT “TYPE HONTH-3.LETTER
REUIATION"

74 CLS
375 PRINT TAB 8,”

376 PRINT S$
„380 PRINT "TO END ENTRIES TYPE

A

INCOME ENTRIES

258 PRINT T$

395 PRINT TAB 16;NS: TAB 25; "YEA
R>

396 PRINT 25

40@ PRINT “ITEN

410 INPUT P$

415 IF P$-"RETURN" THEN GOTO 5
420 LET R-LEN P$

425 DIM R#(6,A)

i30 FOR 5=ሏ TO ይ

$35 LET R$(B)-U$(B)

440 IF P$-R$(OB) THEN GOTO 452
+42 NEXT B

+44 PRINT

446 PRINT "NO SUCH CHTEGORY--TY
PE AGAIN.

459 GOTO 489
L$(B);THE 16:۳۲ )61 j; TRE
24;F (B)

THEN LET CDrFCD«E
THEN LET ST-ST4E

10) Type GOTO 5 and ENTER. Type menu
item #8 and your budget page will be on the
screen. As each budget expense item appears,
type in and ENTER your budgeted amount for
that item. When the screen shows a report
code 5 at the bottom, press “ር።” for the next

page.
11) Delete listing statements 3100, 3105,
3120, and 3135.

12) You must now load the computer with
additional data in order to make your program
work right. Thisis done with LET statements,

2 REM xrr&kxkxr DESIGNED BY
ALAN PATTISON. QLYMPIA. UR
S REM “MONEY MANAGER"

6 REM. MA=MISC. ASSETS, X=CHECKE.
S=SAVINGS .C=CASH,CD=C
~ST=STOCKS.MG=MORTGA

2
9
e
1

$
ኋ

|

MPP
MOUNN:
Uu
n
H
z
4
ኀ

PRINT "CO YOU WANT TO:"
PRINT
PRINT TAE 1:"1)CHECK INCOME
ATEMENT 7"
5 PRINT TRB 1; “2; CHECK EXPENS
= STATEMENT ="
40 PRINT TAG 1, ''2) CHECK ASSETS
SNO LIABILITIES?
4S PRINT TAG 1; "4) ENTER INCOME
ITEMS?"
se PRINT TARE ٤ رج“‎ ENTER EXPENS
3 ITEM
ss ይ 1;"&)SEE INCOMEZE
“PENSE
Se F 4, “72 SEE 2-YERR E
SENSE ف‎
SQ PRINT TAB _1:"°8) COMPARE EXPE
NSES WITH BUDGET?
وہ‎ PRINT TAB 1;"9j SEE CASH FLG
4 STATEMENT?"

'ጊኋ6) TRANSFER FUNDS; FR
“33) SEE MONTHLY INCOH

62 PRINT
5 EXPENSE?
63 PRINT "1l&i EXIT PROGRAM?“
64 PRINT
6S PRINT "ENTER YOUR CHOICE. 1
TO 128."
ذ۴‎ INPUT ت‎
7S CLS
ae IF THEN
8&5 IF THEN
2e IF THEN
9S IF THEN
lea IF THEN
i05 IF THEN
11e IF THEN E
115 IF THEN GOTO ک٥‎
138 IF THEN GOTO 6668
iig IF @ THEN GOTO 6500
120 IF 1 THEN GOTO 7590
121 IF & THEN GOTO 1000
eee RE NCOME STATEMENT ٭‎
210 RE TER ENTERING CATEGORI
5, DELETE 235.235,238,239,241,2
255.260.255
23 PRINT T T ٭‎
25 PRINT T INCOME $”
30 PRINT T S
32 PRINT T
S DIM L$t6.
6 DIM |ዘ(ፎ፣
S DIM F16)
9 LET H$£z"HONTH

4600 PRINT
$610 NEXT I
S020: PRINT AF 16,2." کے سے‎ ፲ጅ

5030 PRINT AT 17,2;" OF HMH م‎ MH J

J A = 0 ND“
$5040 PRINT AT 19,5; “INCOME AND E
sos `

XPENSE 1982"
5050 PRINT AT 21.6; “(TYPE

52095 REM #CRSH ips STATEMENT €

io.
10;

) 16; H$; TRB 25; "YER
6889 PRINT S$.

6090 PRINT “INCOHE:“; TAB 16;HT ST
AS 24;FT

S102 PRINT

6110 PRINT "EXPENSE:";TRB 16;HT.

TAB 24;TT

6120 PRINT

6122 PRINT “LOAN PRIN.
16;PPT;TAB 24;PPX

6125 PRINT

6130 PRINT F$

5140 PRINT

6150 PRINT _ “NET: “;TAB 16; HT-MT -P
ST; TAB 24; INT ((FT-TT-PPX) £160+.
S) 7108

61690 PRINT T$
6170 PRINT

6180 PRINT " TYPE
RN TO STRRT."

6198 STOP

6208 GOTO 5

6500 CLS

6510 REM *LOAN REPAYMENTS AND TP
ANSFERS BETWEEN ACCOUNT S ¥

65550 PRINT “WHICH COLE sory DO YO

PD.:";TRB

""C"" TO RETU

UP DRNT 3 EHICH CRIES 9808
6560 PRINT
6570 PRINT " 1)PRINCIPRL PAYMENT

" 2) TRANSFERS BETWEEN

“WHICH LOAN ARE YOU FP
ENTER ""1"" OR ""2""

PRINT

PRINT TAB 5;"
PRINT

PRINT TAB 5;
INPUT ZO

IF وت‎ THEN GOTO 6625

1) MORTGAGE"
“2) INSURANCE LG

DAAAIAMDAAAM: poo
ወወወወወወሯወወወወ (Oi
NUPPRP ‘(HOOO HOO

”مھ ذ000۸ص ج مر

a
0
N
fo
o
2
ሟ
2
o
o
Q
9

"(DO NOT INCLUDE INTE

REST HERE - IT SHOULD BE ENTERED
WITH CUR- RENT EXPENSES."

6635 PRINT

6640 PRINT “PRINCIPAL PRYMENT =
66590 INPUT PP

6655 LET PPT=PPT+PP

6656 LET PPX-PPX«PP'

6669 PRINT "$£";PP

FROM WHICH ACCO‏ ىہ

IF ZQ-2 THEN LET L-L-PP
IF ZQ-1 THEN LET HGzHG-PP
X" THEN LET XzX-PP
~ THEN LET; 5-5-PP
THEN-LET UrU-PP

TS
€ IF Z@=1 THEN PRINT “NEU MOR
TGAGE BALANCE: $"j HG
6760 IF ZQ-2 THEN PRINT
ር

“NEW INS
BALANCE: $'L

770 PRINT Sf

69090 PRINT "TYPE ""1"" IF RM UI
SH TO IRRHSFERBETUEEN ACCOUNTS.
""2"* TO RETURN TO” oV
TO ENTER ANOTHER. WORN PAYMENT ر‎
"U"4"" TO SEE 06:035 `
6910 INPUT KK

6915 CLS

6920 IF KK=2 THEN GOTO

6930 IF KK=3 THEN GOTO 56٥5

6940 IF KK=4 THEN GOTO 800

7288 CLS

7005 PRINT =ፉ

7010 PRINT “ANT. YOU UISH TO TRA
NSFER: $“;

2235 INPUT UE

7020 PRINT VE

70625 PRINT

26928 PRINT “FROM WHICH ACCOUNT?

2

7040 INPUT U$

7052 PRINT ህፍ

7070 PRINT “TO WHICH ACCOUNT? “;
7080 INPUT U$

7898 PRINT وں‎

7100 ፲ኛ U$£-"$S" THEN LET S-zS-UE
ድ IF U$£z"HR" THEN LET HA=HA --ህ)

THEN LET G
IF D$£-"DEC" THEN LET G

2
a

2
2

265

7e
ao
eec
10
20
ae
4o
50
60
61
62
53
64
65
66
6?
68
69
70
71
72
75
^
so
B2
መ=
ابی‎
55
2e
eo
2
2
Jd

20 m نہ رم زم‎ ር

ul “ ቺ
D H
|

o Up
፦
+

quaa GAVAGAI G S
4
m
0
تہ‎ N
ጽ

زم زم زم زم ኮንዞጋኮን‏

TU fO m CM (N (N ሂባ “ገ

Cî U1 Ji ago ds
Qoooo

AMMAMNI fo
N

IF v;-2£ AND

IF v ኑ፥=ዱ THEN

NEXT uU

PRINT

NEXT ፲

PRINT AT 35.9.
کے‎ 0N D"
PRINT RT 17.90
A S$ ON D"
BENT AT 19

PRINT AT
ETURN) “
STOP
GOTO 5
o CLS
5 REM xBUDCGET ے‎
6ይ REM AFTER ENTERING BUDGET,
ETE 3109: 8 2222295 S135

2;
TAB 12;
TAB 12;

T£
DEXPENSES"
: TAB نچ‎ "BUDGET"
PRINT

S$
DIM P117)
LET 5ፐ=ወ
FOR N=1 TO 17
PRINT I$(N);TAS 16:T(N);
INPUT P(N)
PRINT TRE 25;F (Ni
LET BT =BT +P (N?
NEXT N
PRINT F$ s
PRINT "TOTRLS"

001000

D

ወወ‏ یق یں

Ù

37; “EXPENSE

m
ue

=3..6; “ (ፐሃይፎ ""C"

ag
ሽሽ
DD
HH
22
EE

8
v
D
H
4

(0012121200 Of0I0 Hrü jp IU. MENYN
v
D
ane

PRINT ;TRB 16;"TO

460

PERO خر خر‎ EP جا یگ پر خر‎ f SSS GO ROG O GI OG: GLO
m

TAB 16;TT; TR

“JN ዝመ ፉ )( خرن ن)‎ OOP 0 حر خر ز۸ تی‎ ٣ چیم مخ‎ UPU Q

OC UGG‏ زرا تنا 207635 ورا زرا زر

""C"" TO RETUF

GOTO 5

REM £INCOHE^;EXPENSE GRAPH #
REM DELETE 3600,3610. 3622 A
RUNNING 3600

DIM Utz4)

FOR I=1 TO 28

PRINT I;" ;

CLS

PRINT RT 5.,0;5$

PRINT "IT UILL TAKE A MINUT
TUO TO PREPARE GRRPH......S9
UE A CUPOF COFFEE."

PRINT T$
PAUSE 2900
IF

&&egumAüCtmmp preps

THEH LET
THEH LET

" THEN LET
"APR" THEN LET
" THEH LET
“JUN THEN
“”ጋህኒ” THEN
" CHEN LET
"SEP" THEN
" THEN
THEN LET
THEN

pp ወወ6)2(3ወወ6ክከ)ሠ ህበ Qo) 6-4ሀሀዝ
put - Vosa este, . ቤጤ... ፡
۷۸
4
0
D

pp pf p ROT P م‎ FOO ATA ህ
PELL

ዘዘዘዘዘዘዘዘዘዘ!

NO ተዝ ۸ ጎሳ ጎቡ ሃቡ ነ ዝጽ
NANN ہر ہر ہر مر مر‎ OO ሁ ቢን
۸۰م‎ ۵ “٥ك‎ <۸ ۹

ዘዘዘዘዘዘዘዘ!]

H
٦
42 2232323323
1
000٥000000 ٥

CLS

FOR ፲=3=5 TO ወ STEP -1
PRINT AT_ABS I-15,.1«5; Iga;
FOR ህ=3 TO 24

IF NOT ህ(ህ) THEN GOTO 46900
LET Y-U(U)«-I«200

IF vY«-25 THEN PRINT " “i

QXJOUPOUP oS ہ‎ 6 666016 O

لہ ^J‏ ری 9 J J 100 03 QO Ti O oou ህህ‏ نہ یہ یہ یہ

4+8

42

«23

40

45

45

45

45

es

45

45

15 IF U-1 THEN GOTO 4585
45 IF Uz3 THEN GOTO 4585
45 IF U=5 THEN GOTO 4585
45 IF U=7 THEN GOTO 4585
45 IF U=3 THEN GOTO 4565
45 IF Uz11 THEN GOTO 4585
43 IF U=13 THEN GOTO 4585
ሬጅ IF ህ=35 THEN GOTO 4585
4259 IF U-z1? THEN GOTO 4585
4570 IF U-19 THEN GOTO 4565
4571 IF U-21 THEN GOTO 4585
4572 IF U=23 THEN GOTO 4585
4575 IF Y>-26 AND Y«25 THEN PRIN
T - -

49560 IF Y»24 THEN PRINT “H`;
4582 NEXT U

4585 IF Y>-26 AND Y«25 THEN PRIN
T Um";

4555 IF ost THEN PRINT “8”.
4590 NEXT

Money Management, continued

610 INPUT C$

615 IF C$-"RETURN" THEN GOTO 5
620 LET J-LENH C$

630 DIM X$(17.40)

540 FOR N=1 TO 17

650 LET XS(NI=I$(N)

660 IF C$£-X$(N) THEN GOTO 700
679 NEXT N

66@ PRINT "HO SUCH CATEGORY --TY
PE AGAIN.

700 PRINT IŞIN); TAB 16;M(N) STAB
24 (Nd
785 PRINT “AHT.: “ረ

INPUT ።

NNNNANWV
NNO
0600 0

H

z

፡።

724 IF ወ

725 IF Q

727 IF Q

730 LET

735 LET

740 LET

742 LET TT K

743 PRINT 5

745 PRINT "TO DRTE";TRB 16i MIN)
[TRB =ፊ.;ፐ (N)

246 PRINT F$

748 PRINT “TOTAL EXPENSE": TAB 1
5;MT;TRB 24;TT

749 PRINT S$

750 GOTO 685

800 REM #ASSETS/LIABILITIESs
S810 REH THESE ARE INITIALLY ENT

ERED WITH LET STATEMENTS.
PRINT TAB 4j ጨጨ ሬጨጨመጨጮ፡፡፡መ፡፡
ee ae

827 PRINT TAÐ. 4; “E ASSETS AND LI

ABILITIES ፳”
526 PRINT TAB 4; "mmm

3i "CHECKING BRL."

3;"UISR BAL. "j TAB
2

„ESO BRINT TAB 3, "SAUINGS BRL.";
555 PRINT TAB 3; "CASH BAL. “TAE
S56 PRINT TAB 3, “ርፎፎፕ5. OF DEF.
STAB 20;CO

865 PRINT TAB 3, “STOCKS”; TAB 26
"576 PRINT TAB 3; “MISC. ASSETS":
TAB 20; MR

372 PRINT TAB 3; "PROPERTY"; TAB

PP

37s. PRINT AB 3; "M ASSETS"; TAB
26; X404S ፋር +66 CST ہیں‎ EPR

268 PRINT S$

885 PRINT TAB 3; “MORTGAGE; TAB

20; HG
Bae PRINT TAB 3;"INS. LOAN"; TAG

2
893 PRINT ْ "M LIABILITIES"
TAB 20; MG+L
$94 PRINT S$
595 PRINT TAB 3;"N NET VORTH' ۳

hisa 28j. (X+U+5S +C +CD +ST +HA +PR) — (MG +

$98 PRINT S$
98@-PRINT "ENTER
N TO START.”

9218 STOP

GOTO 5

REM #EXIT PROGRAM INCLUDI.

"YO HAVE INDICATED
EXIT THIS PROGRAM.

"IF YOU HAVE MADE ይሠ።

""Cc"" TO RETUR

1910 PRINT
CHANGES"
12815 PRINT
1020 PRINT

OX (aaa
1025 PRINT E

ME
“soo HOT FORGET TO FF

12940 PRINT
1250 PRINT “TO SAVE THIS PROGRA“
AS CHANGED PSEPARE THE TAPE PET

SRBER, BEGTNRECOHD ING: AND TYPE
eso STOP

970 SAVE “MONEY MANGGER

28 GOTO S

29 STOP

$3 REM #2-VYR EXPENSE GRAPHS

59 REM AFTER RUNNING 1700, CEL
TE 1700,1729.174¢

69 EH’ LAST YEARS MONTHLY EXPE
SE RE ENTERED WITH LET STATE!

R
n
522 TO R(z23) (E

i

1

i eo

1 o

1 eo

1 5

i 6

N 5

ENTS- EVERY ALTERNA
TE NUMBER)

1700 DIM R(24)

1720 FOR I=1 TO 29

1740 PRINT I;" e

2000 CLS

2201 PRINT RT 98,0;5$

2002 PRINT "IT GILL TAKE A couc-
E OF HINUTESTO PREPARE GRAPH...?
RAKE ጸ BRERK."

2083 PRINT T$

29094 PAUSE 2009

2305 IF D$-"JRHN" THEN LET G-2
2010 IF D$-"FEE" THEN LET ር=ዱ
2ፎ35 IF D$ MAR“ THEN LET G=6
2326 IF D$ APR" THEN LET ዕር=ወ
zo25 IF D$ MAY" THEN LET ር=ኋፎወ
2030 IF D$£-"JUN" THEN LET G-12.
2035 IF D$£-"JUL" THEN LET G=14
2040 IF D$£-"AQUG" THEN LET ዕር=3ይ
2245 IF D£-"SEP" THEN LET G=18
2850 IF D$="OCT" THEN LET G-20

7640 PRINT F$

7650 PRINT "TOTRLS";TAB 8:II;TRE
15; EE; TAB 22, II-EE

7660 PRINT T$

"670 PRINT “ENTER "C"" TO INCLU

DE MORTGAGE.“
7580 STOP
76938 CLS

72780 PRINT TE

7710 PRINT TAB Fi" INCOME’: TAB 14

+ EXPENSE": TAB 22; “DIFFERENCE”

7722 PRINT وک‎

7725 PRINT

7730 PRINT TAG Si ፲፲, TAB 15: EE: TA

B 23. ፲፲--፳፳

7735 PRINT F$

7740 LET PP= fur (HGX ریو‎ "

7750 PRINT TER پر‎ UP Ae a; “EMTS.

j; TAB 15; PP

7760 PRINT FE

7770 PRINT “WEAR’:I TAB S; IL: TAG 3

S; EE ح٤٤‎ AE SII-EE-RF.

7780 PRINT

7790 PRINT S$

7791 LET 55=ወ

7792 FOR B=1 TO 24 STEP 2

7793 LET RazmPtE)

7794 LET 55=55 +:66

7795 NEXT E

7800 PRINT “MEAN MONTHLY INCOME:
$"; INT (i|ZI-;HH)xr*10xr2«.5).10

2 و ٭×

7310 PRINT “MEAN MONTHLY EXPENSE

xt. $ $"; INT ((EE/HHjx10xrz2«€.5) /ኋሮ

##2

7316 PRINT
*£t: SS INT

“MEAN EXPENSE LAST

( (55/32) £10 € 24.5) “1C

2x2

2928 PRINT "(*xxEXCLUDING HORTGRA:;
7820 PRINT S¢

7339 PRINT "ENTER ““ነሮ-“ TO RETUE
H TO START."

7840 STOP

7356 GOTO =

Ed.—For the convenience of our readers
the author will supply the program on
cassette for $8 including postage. Readers
outside the U.S. should include in the
payment enough to cover the additional
cost of postage for about 2 ounces. 2"

Tim MONTHLY INCOME AN.

73129 IF U$z"U" THEN LET ህ=ህ -ህ፳
7130. IF وین‎ ep THEN LET XzX-UE
7140 IF U$£-"CO" THEN LET CD-CD-uU
7150 IF U$£-"ST" THEN LET ST-ST-Uu
7160 IF U$£-"C" THEN LET C-C-UE
7170 IF U$£-"S" THEN LET S=S+WE
7180 IF U£-"HR" THEN LET ኑ16 =!ጎዩ፤ +ነ)
7190 IF U$-"U" THEN LET ህ=ህ +ህ፳
7209 IF U$£-"X" THEN LET X-zX-«UE
2210 IF viedo“ THEN LET CD=CO +1}
z220 IF U$&z"ST" THEN LET 5ፐ==ፐ +ህ
7230 IF U£-" THEN LET CzC«UE
7235 PRINT T$

7242 PRINT

7250 PRINT "TYPE ""1"" IF YOU UI

2
58. TO MAKE ANOTHER TRANSFER.

""a"" IF YOU UISH TG RETURN T
QO START, ""3"" TO SEE REVISED AC
COUNTS.

7260 INPUT JE

7265 CLS

7270 IF JE-1 THEN GOTO 7000

7275 IF JE-3 THEN GOTO 89

7298 GOTO 5

7580 CLS

2585 REH sHONTH BY MONTH INCOME.
EXPENSE, DIFFERENCE. AND MEANS ¥
7516 PRINT

7520 PRINT
D EXPENSE NE"

7530 PRINT S$
7540 PRINT T$
79550 PRINT "HONTH"
";TRB 14; "EXPENSE";
RENCE"

756596 PRINT 5$ .
7570 LET H$-"JHNFEBHARRPRHRYJUN-
000657

: TAB 7;
TAB 25;

“INCOME
“DIFFE

Line Notes:

up your graph but should be
deleted after running. K(1)
would be Jan. expenses last
year; RCS) Feb., etc. These will
only appear on the graph when
you enter each month this year,
but they will be in memory

waiting.
2575: 6
2580: Inverse space
2588: A
2620: 81 represents last year

(change to suit your needs);
space between each letter
representing a month; 82
represents this year.

3006: Delete statements in
REM after entering all your
budget items.

e
x. 8
` Z
3590: Delete statements
indicated in REM after running
3600.
4065: Letter O
4080: Letter ©
4570: 3
4579: 6
4580: 8
4585: D
$588: A
5030: Space between each
letter.
6010: 6
6020: 5, 8
6608: Change loan titles to

suit your own needs.
7520: A (2), A (2)

7571 ET H=0
7572 LET II=0
7573 LET وع‎
7575 LET MO=3
7576 LET MM=1
7580 FOR TO 23 STEP 2
7585 LET )zINT (ህሣ(5)-+,=)
7586 LET *1) =INT (U(B+1)+.5)
7500 PRI $MM TO HO) i: TAB 5;ህሠ፥
86 31 Bris TAB 23:W(B) -U(E
+1
7605 LET II-II«Ut(E)
7506 LET EE-EE-«U(Bt«-1)
2510 LET HO 0+3
7520 LET MM=MM +2
7625 IF ህ (መን) ንይ THEN LET HH=HWHH+åi
7630 NEXT B
7: ፳
11: S
15: Inverse: MONEY MANAGER
79: Letter O
210: Once you have entered

your income categories, delete
statements indicated in REM.
223: 6
2295.5, 8
230: Z
255: Your income categories
464: IF, LET statements

credit the income to the proper
account. .
486: Prints a running total

of both monthly and year-to-date
income.
505: Once you have entered

your expense categories, delete
statements indicated in REM.

5125 4

Sis: 5. B

$18: Z

722: IF, LET statements debit
the appropriate account.

810: Initialize each asset
and liability balance with LET
statements.

B27: 5, B
828: 2
865: Change titles of assets

and liabilities to suit your own

needs.
875: Inverse > on M
893: Inverse > on M
896: Inverse spaces; > on M
1020: ሬ
1025: 2, 8
1030: 2
1695: These 3 statements set

charge. If your account does not have a check
charge, you can delete lines 80, 90, and 100,
and the “-A” of line 190. Alternatively, if you
will use the program for accounts with the
same check charge, you can make line 80:

80A = (check charge) and delete lines 90
and 100.

The program then asks you to

INPUT BANK BALANCE
In response, you enter your balance as per
your bank statement.

The program then asks you to

INPUT OUTSTANDING CHECKS

IF FINISHED, INPUT 0

You now enter, one at a time, the amount of
-each check which was not returned with the

statement. As you enter the amount of each
check, it is displayed on the screen. When you
have entered all such checks, enter 0.

This sends the program on to the next step
which asks you to

INPUT UNRETURNED DEPOSITS

IF FINISHED INPUT 0
Now you enter, one at a time, the amount of
each deposit which you made since the state-
ment was compiled by the bank, that is, the
amount of each deposit which does not appear
on the statement. As you enter the amount of
each such deposit, its value will appear on the
screen. When you are finished, enter 0. The
computer will now compute your correct
checkbook balance (assuming the bank has
not made a mistake!) and display
CHECKBOOK BALANCE SHOULD BE:

_ (balance)

Memory Saving

In entering the program, you should use
keywords and tokens wherever possible in the
PRINT statements. This saves considerable
memory and is necessary if the program is to
run in IK RAM.

To use this procedure (from Richard
McDaniel, SYNC 1:5) enter the line number,
then enter the last keyword in the statement.
Then back up the cursor, using the left arrow

using DEB if the transaction was a debit,
CRED if the transaction was a credit, or the
check number if the transaction was a check;
the amount of the transaction in the second (if
the transaction was a debit or check) or third
(if the transaction was a credit) column; and
the resulting balance in the fourth column.
For an example of how this works, suppose
that your most recent balance was $1 10.10 and
that your account charges you $0.25 per
check. Upon entering these figures, the dis-
play would show
INPUT CODE, THEN INPUT AMT.
ITEM DEBIT CREDIT BALANCE
110.1
Now suppose your next four transactions were
check 215 for $50.; a $3.00 monthly service
charge; a $240 deposit; and check 216 for
$245.20. To enter these you would enter 215,
then 50; 0 (for a debit), then 3; 1 (fora credit),
then 240; and 216, then $245.20. The display
would now show:

INPUT CODE, THEN INPUT AMT.

ITEM DEBIT CREDIT BALANCE
110.1

215 50 59.85

DEB 3 56.85

CRED 240 296.85

216 245.20 51.4

This display scrolis up with each entry, so
you may continue until you have entered all
transactions. The screen can hold eleven
transactions at one time, so be sure you check
your work from time to time. If you should
detect an error, it can be offset using the 0 or 1
code, and then the amount, to adjust the bal-
ance appropriately.

Program 2

The second program is used to check your
checkbook balance against your bank state-
ment. When you run the program, it first asks
you to ,

INPUT CHECK CHARGE
In response, you enter your account per-check

Checkbook Management

George J. Repicky

A computer with its TV display, makes the
task of updating and balancing a checkbook
simpler than using a four-function calculator.
The display enables the user to double-check
entries and so helps eliminate mistakes. In
addition, if mistakes are made, they are easily
corrected. Below are two programs which I
developed for these purposes. Each requires
the 8K ROM, and each fits into IK RAM.

Program 1

If you are like most people, you make a
number of transactions —vwrite checks, make
deposits, etc.—with your checkbook before
you update the balance. The first of the two
programs is designed to update your
checkbook balance. To use the program, enter
it into the computer, then RUN.

The program first asks you to

INPUT BALANCE
At this point you enter your last computed
balance.

Then the program asks you to

INPUT CHECK CHARGE
In response, you enter the per check charge of
your account. (If your checking account has
no check charge, you can delete lines 220 and
230, and the “-C” of line 380, from the pro-
gram.)

The program then clears the screen, and
displays:

INPUT CODE, THEN INPUT AMT.

ITEM DEBIT CREDIT BALANCE

At this point you enter each transaction in
your checkbook in two steps. First, for each
transaction you enter a code: O if the transac-
tion was a debit (a monthly service charge, for
example); 1 if the transaction was a credit (a
deposit, perhaps); or the check number if the
transaction was a check. Second, you enter
the amount of the transaction. After each
complete entry the computer displays the na-
Sure of the transaction in the first column,

a

George J. Repicky, 49 Roosevelt Ave.,
Schenectady, NY 12304.

Then back up using the left arrow (shift 5)
until the cursor is before the word INPUT.
Now enter THEN, using the token (shift 3).
The display will read:

260 THEN INPUT AMT.”

Back up again until the cursor is before
THEN, and enter CODE, using the token. To
do this you must first obtain the function cur-
sor (shift NEWLINE or shift ENTER), then
enter the token CODE, (on the "I" key). The
display will now read:

260 CODE THEN INPUT AMT.”

The cursor is now after the word CODE, so
now is a good time to enter the comma. Next,
back up again until the cursor is before the
word CODE, and enter INPUT, again using
the keyword (on the I Key). The display now
reads:

260 INPUT CODE, THEN INPUT AMT."

Finally, back up again until the cursor is
before the word INPUT, and enter PRINT,
using the keyword (on the "P" key). At this
time also enter the leading quotation mark.
The display will now show the complete line,
ready to enter:

260 PRINT "INPUT CODE, THEN INPUT
AMT."

The whole thing sounds a bit complicated
when you read it, but it is really quite simple
once you get the hang of it. The memory sav-
ing is substantial; 17 bytes for this one state-
ment alone. a

Program 2.
Checkbook Statement Comparison.

2000
» INPUT CHECK CHARGE"

209060
x INPUT BANK BALANCE”

13@ GOSUR 2000
“ INPUT OUTSTANDING C

150 GOSUB 2000
160 GOSUB 4000

c
16@ IF C=@ THEN GOTO 230
19@ LET B-B-C-1i
200 PRINT C
210 GOSUB 2009
220 GOTO 170
230 GOSUB 29000
INT " INPUT UNRETURNED DE

250 GOSUB 2000
260 GOSUB 4000
270 INPUT D
280 IF D-O THEN GOTO 349

LET B-B«D
3009 PRINT D
GOSUB 20909
328 GOTO a70
: GOSUB 2000
S40 PRINT “BALANCE SHOULD BE: "

N
NT "IF FINXSHEO INPUT o"
4018 GOSUB 2000
ETURN

Line notes:

90: Inputs per check charge

120: Inputs bank balance as per statement.

170-230: Form a loop which inputs out-
standing checks and adjusts the bank state-
ment balance for them and associated per
check charges.

240-330: Adjust the bank statement bal-
ance for any deposits made after the statement
was prepared.

340: Prints checkbook balance.

2000: Subroutine used to scroll and space
printout,

4000: Subroutine to print statement.

— ے_مم...ے.س ۱۱ش سم‎ ZZK

An example may help here. Consider line
260 from the first program:
260 PRINT “INPUT CODE, THEN INPUT
AMT.”

To enter this line. first type:
260 INPUT AMT."
using the keyword INPUT (on the “I” key).

(shift 5) until it is before the keyword. Now
enter the next-to-last keyword. Repeat this
procedure until all keywords are entered. You
can enter intermediate text as you work, or
after all keywords are entered.

Program 1. Checkbook Update.

300: Prints previous balance in col. 4.

320: Enters code -0, 1, or check no.

340: Enters amount of transaction.

350: Branch if transaction was a credit.

360: Decreases balance for debits.

370: Prints check no. if transaction was.a
check.

380: Prints DEB if transaction Was a non-
check debit.

390: Decreases balance by per check
charge if transaction was check.

400: Prints amt. of trans. and resulting bal-
ance.

410: Returns for next transaction.

1000: Branch from 350; increases bal. for
credit.

1010: Prints amt. of trans. and resulting
balance.

1020: Returns for next transaction.

2000: Scroll and space subroutine; used
after each line of display is printed.
2030 RETURN

INPUT BALANCE”
. INPUT CHECK CHARGE”
c

INPUT CODE , THEN I

280 PRINT "ITEM";TRB S; DEBIT";
TAB 13; "CREDIT"; TAB 21; “RALANCE
` 29@ پژدوع‎ ۶ 2080

- 320 INP
340 INPUT Z

350 IF Y=1 THEN GOTO 3ፎፎፎ

260 LET BzB-Z

370 IF Y»1 THEN PRINT Y;

380 IF Y=@ THEN PRINT “DEB";
399 IF درب‎ THEN LET B-B-C

490 PRINT TAB S;Z;TAB 21;B

41@ GOTO 328

12098 LET 8=B+z

1910 PRINT “CRED”; TAB 12;Z;TAB 2
1;B

1229

GOTO 310
ፎወወወ SCROLL

Line notes:

210: Enters the previous checkbook bal-
ance.

230: Enters the per check charge.

280: Sets the headings of the transaction
listing.

To erris human...

BUT TO REALLY FOUL THINGS UP
YOU NEED A COMPUTER

The Face Clock

The second program will give a display
with the traditional face clock. The face is
drawn only once and then the hands are
PLOTed in and UNPLOTed when no longer
needed. This program is suggested by an
exercise in the chapter on time and motion in
the ZX81 manual.

Listing 2. Hand Clock.
10 REM “FACE CLOCK" TO SAVE GO

TO See
12 PRINT INPUT TIHE"
(T7108)

14 INPUT T

16 LET H-2£INT

18 LET T-T-1002INT (T7190)
20 IF T»15 THEN LET HzH+ł
== IF T»45 THEN LET HceH«1i
24 CLS
26 FAST
Je FOR D=i TO 12

<a PRINT AT 10- GOS

2134+102#SIN (D/624PID;D

5 NEXT

D
SLOW
POKE ተፎ TASSA

(D^52PI)

GOSUB 10900

LET ፕ=ፕፐ+3

IF T-60 THEN LET ፐ=ይ

IF T=16 OR T=46 THEN GOTO 2

LET P-1

LET L-T7/3OzPI

LET X-z27«1£z5IN ا‎

LET Y-22«18xCOS ا‎

LET CzX

LET ሯ=ኙ

GOSUB 1000

GOSUB 319

IF PEEK 16457»241 THEN GOTO

PAUSE 219
GOTO 86

QNPOVONAU <0 ق جچ ۲ررۂ‎ 0 NOM
900000000 ወወወወወወወወ ወወ

خر ہر خر خر ر سر ہر بر خر خر ن۸ ۸0 0۸0

نہ نہ ذ۸ ن۸ ن۸
OUP OW‏
90000

LET G=H7/12:PI

LET C=27+12FSIN G
LET D=22+124COS G
GOSUB 1

መወወወጩጩወወ 0N CD CD ርን ርጋ ርንርን

فر فرفر در ررر
OOO ወ O ዝሇጩዬ ዕስሥ‏ خر جہ نیم

ወወወፀወወሌክወወወወወወወወወወወ
4
D
c
m
ዘዘዘዘዘዘዘዘዘዘ ፡
DDneooooorntu i
0
m
0
r
٥
0
x

ኮሥኦ።
900
NOW
0م‎
i
ወ
ሥር
ፎ

m
9
ወ
8

BS ህ
ን HEN GOTO 6

=SGN U
ABS ህ

IF H
L

PRP
P9
ወሀ
68

P
ወወወ
LB af عو‎
335

N‏ ۸م 0٥‏ یہ ۵ص

መ ጠጠ papa‏ مرا
خر فرفر فر فرفر DOH pe p‏
1
ዘ,172ፓፎኮክሠ” 22ወኮ”<ርርፎወጋ‏

numm

OH

TO H

9 IF P-1 THEN PLOT A,B

5 IF P=@ THEN UNPLOT A,B
@ LET S-S«N

ወ IF S«H THEN GOTO 1230
@ LET S=S-H

9 LET A=A+0

1210 LET B-b«L

1220 GOTO 1250

ወ
^"
o
D

Keeping Time in the
Home Office Chuck Dawson

Listing 1. Digital Clock.
1o REN “DIGITAL CLOCK“ TO SAVE

GOTO

15 PRINT " INPUT TIME"
20 INPUT TIME

25 CLS

39 LET H-INT (TIME10@) :60+TIM
E-INT (ፕ ፲11ሠፎ ታ2 652) 2190
SS GOTO 148

(M768) ) 718)

60 LET T=7
65 LET D-(INT

(H760) ) -19 xD
70 GOSUB 500-

98 LET D-INT
690) ) 7104.05)
95 GOSUB Soe
399 LET ٣۔3‎
110 LET D-H-INT (H710)z10
120 GOSUB 5eo
o Ss" PEEK 1564370245 THEN GOT

140 PAUSE 1246

1506 LET HzHei

150 IF [453446 THEN LET H=9

170 GOTO 49

Soe LET ት ያወ ተር 5

505 PRINT sT:

S510 FOR N= 0 TÓ N*S

515 LET X=PEEK N

529 FOR L-1 TO 7

S25 LET ር=ወ

530 IF X«128 THEN GOTO 560

540 LET C=126

550 LET X-X-128

(60£(H^60-INT {M/Z

0۷

لہ

9
vzr

IF H-789 THEN LET H-6e
IF T=0 AND D=@ THEN LET N-7

$e

Program 1. Digital Clock.

Since the Sinclair computers have an inter-
nal timing feature. they can be used to make a
clock display which will give you the time.
Two basic programs are given below to do just
that.

A Digital Clock

The first program provides you with a digi-
tal clock. The display will show the time in
digits about three inches high and extending
all across the screen.

Lines 130 and 140 contról the timing. Line
130 counts the number of frames sent to the
television since the last PAUSE and then holds
until a specified number is reached. The
PAUSE in the next line is used to fine tune
things and also reset the frame counter for the
next minute's cycle.

If your computer is capable of SLOW
mode, you will see a display which stays rock
steady until a minute passes and the last digit
slowly changes itself into the next appropriate
number. In the SLOW mode it does not always
take exactly the same amount of time to up-
date the display. I have noticed that, if the
memory is nearly full, the computer seems to
take longer to compute.

In the FAST mode, this trick will not work
since no frames are sent during the compute
cycle. So change line 130 to a PAUSE 3288
and line 140 to POKE 16437,255. The large
numbers themselves are generated by PEEK-
ing into the ROM s own character generating
routine and enlarging it eight times. For faster
updating, only the middle six lines are used.
There are blank lines above and below each
character so there is no reason to waste time
reproducing these.

After you have typed in the program, use
GOTO 700 to SAVE. The program will then
run itself.

—————————————

Chuck Dawson, 6520 Victoria, Fort Worth, TX
76118.

*

Program 3. Calendar.

JANUARY 1983

HON TUE VED THU FRI SAT

FEB 999999

MON TUE WED THU
1 2 = ፈ
5 9 35 11
15 16 17 18
22 25 24 ==

Listing 3. Calendar.

S REM “CALENDAR” TO SAVE GOTO
228

10 LET AS="“COJANFEBMARAPRHAYIU
NJULRUGSEPOCTNOUDECSLUM MON TUE W
Ec THU FRI SAT”

15 PRINT " INPUT MONTH"

20 INPUT BS

2S FOR H-1i TO 12

3e IF BSti TO 3G)iz-zA$(34H TO 3*H
+2) THEN GOTO 45

35 NEXT M

40 GOTO 20

45 PRINT " INPUT YEAR"

S@ INPUT Y

SS IF Y:1752 THEN GOTO se

80 PRINT AT 8,Zs4;

85 LET H-Hs1

90 GOSUB 200

95 IF Z=0 THEN-LET 2=7

100 FOR ፲=3ሏ TO 31

110 PRINT. " "1," “ሠ

120 IF I<1@ THEN PRINT “ رہ‎

130 IF I527 AND 33-PEEK 16441-Z
x4 THEN STOP

140 IF PEEK 1644125 THEN PRINT

150 NEXT I

200 LET X=

210 IF H-1 OR M=2 THEN LET X-1
220 LET L=Y-X

230 LET X-M«X*12

240 LET P-INT (Lviaa)

250 LET Z-INT (134 (ረጀ+ኋ) S1 + ፲.ፐ
(=5ዱ! ሪሥፋ) +INT (P74) -P

260 LET Z-Z-7sINT zr+7)

2706 RETURN

29 SAVE “CALENDAR”

310 RUN

If you have only 2K RAM, you will find
that this program fills up almost all available
space. If you have a 16K module, vou can add
the second hand and other decorative touches.

After you have typed in the program, use
GOTO 500 to SAVE. The program will then
run itself.

Setting Your Clock

In both programs, after the program is run-
ning, you are asked to input the time. Do not
use a colon; just enter the figures: Not 3:45 but
345.

Program 2. Face Clock.

A Calendar

From time to time we want to see how a
certain month falls in the calendar or what day
of the week a certain date is on. Most calen-
dars show only one year on either side of the
calendar year. Thus dates beyond the printed
calendar have to be calculated laboriously by
hand with the danger that we may have over-
looked a day in an irregular month. This pro-
gram provides the solution to the problem.

With this program you can enter any month
and any year, and the computer will show you
the calendar for that month. Well, not exactly
any year. It has to be between September 14,
1752, and February 28, 2200. Nevertheless
that range covers most dates of interest.

After you have typed in the program, use
GOTO 300 to SAVE. The program will then
run itself. The prompts will call for inputting
the month and year. Type in at least the first
three letters of the month and hit ENTER; then
type in the year and hit ENTER. The com-
puter will then display the calendar for that
month. You can use either FAST or SLOW
mode but remember that it takes much longer
to produce the calendar in the SLOW mode.

To test whether the program is working
right, try DECEMBER 1941. We remember
that the 7th was on a Sunday. Now try some
other dates. Try your birth month and year. I
use this program to plan business trips and
vacations for the coming year even before I
start getting those free calendars in the mail in
December.

This is a good program for showing off your
computer to your friends. Try it at your next
party. a”